#! /bin/bash

#> ../dados/papers_relacionados
#
#while read autor
#do
#	autorID=$(grep -iw -m 1 "$autor" ../dados/dicionario | cut -d " " -f1)
#	relacionados=$(grep -iw  -m 1 "Relacionados(${autorID})" ../dados/relacionados | cut -d":" -f2)
#	degree=$(( $( echo $relacionados | wc -w) -1 ))
#	papers_comuns=0
#
#	for elemento in $relacionados
#	do
#		if [ $elemento -gt $autorID ]
#		then
#			elementoNome=$(cat ../dados/dicionario | tr -s " " | grep -iw -m 1 "$elemento" | cut -d" " -f2)
#			elementoNome=$(echo "$elementoNome" |  tr '[:upper:]' '[:lower:]')
#			
##			echo "ta vazio: $elementoNome  elemento: $elemento"
#			for x in $(grep -iw "${autor}" ../dados/coautores)
#			do
#				#echo "comaprando x: $x  --> elementonome: $elementoNome"	
#				
#				x=$(echo "$x" |  tr '[:upper:]' '[:lower:]')
#				if [ "$x" = "$elementoNome" ]
#				then
#					papers_comuns=$(( papers_comuns + 1 ))
#				fi
#			done
#
#			echo "$papers_comuns $autorID $elemento" >> ../dados/papers_relacionados
#			papers_comuns=0
#		fi
#	done
#
#done < ../dados/autores

#tira os X/100 maiores
total=$(cat ../dados/papers_relacionados | wc -l)
qtd=$(echo "$total * $1  / 100 " | bc)

echo $qtd

cat ../dados/papers_relacionados | sort -rn +0 -1 | cut -d " " -f2,3  > ../dados/grafo2_removidos_papers

#copia o grafo.net para poder remover as arestas
cp ../dados/cabecalho_pajek ../dados/grafo_remocao_papers.net


#remove as $qtd primeiras, ja que esta ordenado
precisa=$((total - qtd ))

echo $precisa

tail -n $precisa  ../dados/grafo2_removidos_papers >> ../dados/grafo_remocao_papers.net

#cat ../dados/grafo2_removidos >>../dados/grafo_remocao.net

echo "Quando terminar de gerar o componentes_remocao tecle Enter"
read entra

#Encontrando o numero de componentes conectados  de cada tamanho
cat ../dados/componentes_remocao_papers.clu | sed "1d"  | sort -n | uniq -c | tr -s " " |  cut -d " " -f 2 | sort -n | uniq -c  | awk '{print $2 " " $1}' > ../dados/componentes_remocao_papers


#informa qual e o tamanho do maior componente conectado
echo "O tamanho do maior componente conectado apos remover as  $qtd  arestas mais relacionadas: $(cat ../dados/componentes_remocao_papers | cut -d " " -f1 | sort -nr | head -n 1)"

